home *** CD-ROM | disk | FTP | other *** search
/ The Ultimate Frank Lloyd…ght - America's Architect / Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso / pre / flw / shared.dir / 01062_Script_1062 < prev    next >
Text File  |  1994-11-15  |  955b  |  35 lines
  1. --
  2. on gloss txName
  3.   global dialogOn, glossDialog
  4.   if dialogOn = FALSE then
  5.     puppetTransition 09, 1, 0
  6.     set the castNum of sprite 23 to glossDialog
  7.     updateStage
  8.     
  9.     startTimer
  10.     repeat while the time <10
  11.     end repeat
  12.     
  13.     put " " into field "glossField"
  14.     -- set the textFont of field "glossfield" to "MS Sans Serif"
  15.     set the textFont of field "glossfield" to "Arial"
  16.     set the textSize of field "glossfield" to 11
  17.     
  18.     set dialogOn = TRUE
  19.     put fileIO(mNew,"read", the pathname&"defText\"& txName) into def
  20.     put def(mReadFile) into field "glossField"
  21.     def(mDispose)
  22.     
  23.     set the textFont of field "glossfield" to "Arial"
  24.     set the textSize of field "glossfield" to 11
  25.     updateStage
  26.   end if
  27. end gloss
  28. --
  29. on closeDialog
  30.   global dialogOn
  31.   set dialogOn = FALSE
  32.   set the castNum of sprite 23 to the number of cast 1048
  33.   put " " into field "glossField"
  34. end closeDialog
  35. --